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LABEl OOOOOOOOOLINE 00176349CC EX 0/R; COMMON*!; FILE SmUFILES/PATCHES; ENP* 

FILE* LFILES/iATCHES TUESDAY 12/H/76 06119 PM 

S* LIST MERGE 

«§ LOCAL ZIPARRAY 

S. 4 PATCHES FOR LFRES.XVI.O 

s*compile: lfilesn/cande xalgol LieRARy, 
i*algol file tape*sym80l/lfiles serial, 

S*ALQOL file LINE«151US6/LFILES BACK UP DISK, 

f*PBQCES5»2i30;iO»2l30, 

S*DaTA CARD, 

$m 

$ SET TAPE CHECK SINGLE SEQERR COMMQ 

S SET LIST BEND FORMAT PRT 

» RESET XRCFN 

* SET XREFN 

$# PATCH NUMBER 400 FOR LFIlES.XVI.O CONTAINS I CARD 

IF NAME,C6I6] EQL THEN NAME»=« " & NAME C6»l2t363; 
THIS PATCH CAUSES LFILES TO DISCARD THE FIRST CHARACTER OF AN OBJEC 
FILE ONLY IF THE CHARACTER IS "0", NON-TSS TYPE FILES WILL BE PRlN 
AS THEY EXIST IN THE DIRECTORY, 
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D,G. WILLMS* 26MAR76. 

PATCH NUMBER 401 FOR LFIlES.XVI.O CONTAINS 5 CARDS, 

REAL CTRrOISKBOTTOM#I#lNCREMENT#KAITWORD/LL*MASK# 

INTEGER S»FID; 

2 X (FID X MODULUS + (USERNAME, C6I 183 + USERNAME, C2« 1243 ) MOO MODULUS 

X TO VOID A CARD 

IF CNAMEIaA tU) nEQ S^U" THEN % VALID ENTRY NAME 
THIS PATCH CLEANS UP SOME CODE IN LFILES, PRIOR TO THIS PATCH 
LFILES WOULD TAKE Flo (AN INTEGER FROM TO 12) AND EXTRACT THE 
HIGH ORDER HALF OF THE WORD AND ADD IT TO THE LOW ORDER HALF OF THE 
WORD AND TAKE THIS SuM MOD 13. THIS COULD BC ACCOMPLISHED BY 
SIMPLY TAKING THE VALUE ITSELF. UEt THE HIGH ORDER WILL ALWAYS BE 
ZERO AND MOD 13 wiLL ALWAYS JUST RETURN THE NUMBER ITSELF), 
THE PATCH ALSO FIXES THE CODE FOR TESTING FOR A VALID ENTRY NAME. 
LFILES WOULD TEST FOR MFID " 7 WHILE THE BYPASS DIRECTORY CONTAINS 
3«14«' FOR AN AVAILABLE ENTRY AREA. 
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P,0,WlLLMS*92JUi76, 

PATCH NUMBER 402 FOR LFIlES.XVI.O CONTAINS 4 CARDS, 
SOLEUSER* SOURCE* TELETYPE' UNLOCiED* PUBLIC^ 00011200 

» TO VOI-D A CABXl 0Q028QQ0 

IF NOT (MATCH (A C 2] , C6I 423 »USER ) ) THEN 00035500 

IF NOT (UNLOCKED OR PUBLIC) THEN GO SKIPITi 00035550 

THIS PATCH CHANGES THE WAY LFILES DOES SECURITY CHECKING, 

PRIOR TO THIS PATCH* A USER COULD LIST ONLY UNLOCKED OR PUBLIC FILES 

IF THE FID OF THE FIlE WAS NOT HIS USERCODE, 

NOW» A USER CAN LIST FILES AS LONG AS HIS USEHCOpE IS THE CREATING USERCODE, 

IF IT IS NOT# THE FIlE MjST BE UNLOCKED OR PUBLlCEO, 
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Q*6.WlLiJiS#a5Ef»l6, 

PATCH NUMBER 500 FOR LFIlES,XVI,0 CONTAINS 1 CAfID, 

IF PRINTER THEM WRITE (LPA»9#W0RK [*3) ELSE 

THIS PATCH CAUSES LFILES TO SINGLE SPACE THE PRINTER, 
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$« D,G,WILLMS*22JUL76. 
LABEL OOOOOOOOOLINE 00176349CC EX 0/Ri COMMON* U FILE S»LFILES/PATCHES JENO* 
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